home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / exampleCode / irix / scripts / edir < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.2 KB  |  63 lines
  1. #!/bin/csh -f
  2. #
  3. # $Id: edir,v 1.1 93/08/20 13:19:12 carlson Exp $
  4. #
  5. # Description:
  6. #    This script will scan a directory and just list those files
  7. #    that are executable.
  8. #
  9. # Revision History:
  10. #    $Log:    edir,v $
  11. # Revision 1.1  93/08/20  13:19:12  carlson
  12. # Initial revision
  13. # 
  14. # Revision 1.1  1993/02/24  14:13:08  chris
  15. # Initial revision
  16. #
  17. #
  18. #-----------------------------------------------------------------------
  19.  
  20. if ( ! -e ~/bin/strlen ) then
  21.     echo "This script requires the program 'strlen' to run."
  22.     exit
  23. endif
  24.  
  25. set list = ()
  26. set i = 0
  27. foreach file ( * )
  28.     if ( -d $file ) continue
  29.     if ( -x $file ) then
  30.     set list = ( $list $file )
  31.     set a = `strlen $file`
  32.     if ( $a > $i ) set i = $a
  33.     endif
  34. end
  35.  
  36. if ( $i == 0 ) exit
  37.  
  38. #----
  39. # i        = Maximum size of word
  40. # columns    = Number of possible columns
  41. # rows        = Number of rows necessary
  42. #
  43.  
  44. @ i = $i + 2
  45. @ columns = 80 / $i
  46. @ rows    = ( $#list / $columns ) + 1
  47. set format = "%-${i}.${i}s"
  48.  
  49. @ row     = 0
  50.  
  51. while ( $rows > $row )
  52.     @ column = 0
  53.     while ( $columns > $column )
  54.     @ element = ( $row * $columns ) + $column + 1
  55.     if ( $element <= $#list ) then
  56.         printf "$format" $list[$element]\*
  57.     endif
  58.     @ column = $column + 1
  59.     end
  60.     echo ""
  61.     @ row = $row + 1
  62. end
  63.